Profile of (eval 29)[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Fatal.pm:1102]

Filename	(eval 29)[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Fatal.pm:1102]
Statements	Executed 15 statements in 596µs
Eval Invoked At	/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Fatal.pm line 1102
Sibling evals	1, 2

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	32µs	136µs	Hailo::::__ANON__[:127]Hailo::__ANON__[:127]
1	1	1	17µs	49µs	Hailo::::BEGIN@6Hailo::BEGIN@6
1	1	1	12µs	38µs	Hailo::::BEGIN@46Hailo::BEGIN@46
1	1	1	11µs	37µs	Hailo::::BEGIN@86Hailo::BEGIN@86

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1	1	1µs			package Hailo; require Carp;
2					# spent 136µs (32+104) within Hailo::__ANON__[(eval 29)[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Fatal.pm:1102]:127] which was called: # once (32µs+104µs) by Hailo::train at line 27 of (eval 30)[Fatal.pm:1188] sub (*;$@) {
3	1	8µs			local($", $!) = (', ', 0); # TODO - Why do we do this?
4	1	4µs			if (@_ == 1) {
5
6	2	140µs	2	82µs	# spent 49µs (17+33) within Hailo::BEGIN@6 which was called: # once (17µs+33µs) by Fatal::_make_fatal at line 6 no warnings qw(unopened uninitialized numeric); # spent 49µs making 1 call to Hailo::BEGIN@6 # spent 33µs making 1 call to warnings::unimport
7
8					if (wantarray) {
9					my @results = CORE::open($_[0]);
10					my $retval = \@results;
11					my $context = "list";
12
13
14					# An empty list, or a single undef is failure
15					if (! @results or (@results == 1 and ! defined $results[0])) {
16
17					die autodie->throw(
18					function => q{CORE::open}, args => [ $_[0] ],
19					pragma => q{autodie}, errno => $!,
20					context => $context, return => $retval,
21					eval_error => $@
22					)
23					;
24					}
25
26					return @results;
27					}
28
29					my $retval = CORE::open($_[0]);
30					my $context = "scalar";
31
32
33
34					die autodie->throw(
35					function => q{CORE::open}, args => [ $_[0] ],
36					pragma => q{autodie}, errno => $!,
37					context => $context, return => $retval,
38					eval_error => $@
39					)
40					if not defined $retval;
41
42					return $retval;
43
44					} elsif (@_ == 2) {
45
46	2	150µs	2	64µs	# spent 38µs (12+26) within Hailo::BEGIN@46 which was called: # once (12µs+26µs) by Fatal::_make_fatal at line 46 no warnings qw(unopened uninitialized numeric); # spent 38µs making 1 call to Hailo::BEGIN@46 # spent 26µs making 1 call to warnings::unimport
47
48					if (wantarray) {
49					my @results = CORE::open($_[0], $_[1]);
50					my $retval = \@results;
51					my $context = "list";
52
53
54					# An empty list, or a single undef is failure
55					if (! @results or (@results == 1 and ! defined $results[0])) {
56
57					die autodie->throw(
58					function => q{CORE::open}, args => [ $_[0], $_[1] ],
59					pragma => q{autodie}, errno => $!,
60					context => $context, return => $retval,
61					eval_error => $@
62					)
63					;
64					}
65
66					return @results;
67					}
68
69					my $retval = CORE::open($_[0], $_[1]);
70					my $context = "scalar";
71
72
73
74					die autodie->throw(
75					function => q{CORE::open}, args => [ $_[0], $_[1] ],
76					pragma => q{autodie}, errno => $!,
77					context => $context, return => $retval,
78					eval_error => $@
79					)
80					if not defined $retval;
81
82					return $retval;
83
84					} elsif (@_ >= 3) {
85
86	2	210µs	2	63µs	# spent 37µs (11+26) within Hailo::BEGIN@86 which was called: # once (11µs+26µs) by Fatal::_make_fatal at line 86 no warnings qw(unopened uninitialized numeric); # spent 37µs making 1 call to Hailo::BEGIN@86 # spent 26µs making 1 call to warnings::unimport
87
88	1	1µs			if (wantarray) {
89					my @results = CORE::open($_[0], $_[1], @_[2..$#_]);
90					my $retval = \@results;
91					my $context = "list";
92
93
94					# An empty list, or a single undef is failure
95					if (! @results or (@results == 1 and ! defined $results[0])) {
96
97					die autodie->throw(
98					function => q{CORE::open}, args => [ $_[0], $_[1], @_[2..$#_] ],
99					pragma => q{autodie}, errno => $!,
100					context => $context, return => $retval,
101					eval_error => $@
102					)
103					;
104					}
105
106					return @results;
107					}
108
109	1	65µs	4	151µs	my $retval = CORE::open($_[0], $_[1], @_[2..$#_]); # spent 104µs making 1 call to Hailo::CORE:open # spent 22µs making 1 call to Encode::find_encoding # spent 22µs making 1 call to Encode::Encoding::renew # spent 3µs making 1 call to Encode::Encoding::needs_lines
110	1	2µs			my $context = "scalar";
111
112
113
114	1	1µs			die autodie->throw(
115					function => q{CORE::open}, args => [ $_[0], $_[1], @_[2..$#_] ],
116					pragma => q{autodie}, errno => $!,
117					context => $context, return => $retval,
118					eval_error => $@
119					)
120					if not defined $retval;
121
122	1	6µs			return $retval;
123
124
125					}
126					die "Internal error: open(@_): Do not expect to get ", scalar(@_), " arguments";
127					}
128
129	1	8µs			;